home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Labs / StateUFinal / classForm.asp < prev    next >
Text File  |  1997-04-24  |  24KB  |  649 lines
  1. <%@ LANGUAGE="vbscript" %>
  2. <%
  3. '-------------------------------------------------------------------------------
  4. ' Microsoft Visual InterDev - Data Form Wizard
  5. ' 
  6. ' Form Page
  7. '
  8. ' (c) 1997 Microsoft Corporation.  All Rights Reserved.
  9. '
  10. ' This file is an Active Server Page that contains the form view of a Data Form. 
  11. ' It requires Microsoft Internet Information Server 3.0 and can be displayed
  12. ' using any browser that supports tables. You can edit this file to further 
  13. ' customize the form view.
  14. '
  15. ' Modes:         The form mode can be controlled by passing the following
  16. '                name/value pairs using POST or GET:
  17. '                FormMode=Edit
  18. '                FormMode=Filter
  19. '                FormMode=New
  20. ' Tips:            - If a field contains a URL to an image and has a name that 
  21. '                begins with "img_" (case-insensitive), the image will be 
  22. '                displayed using the IMG tag.
  23. '                - If a field contains a URL and has a name that begins with 
  24. '                "url_" (case-insensitive), a jump will be displayed using the 
  25. '                Anchor tag.
  26. '-------------------------------------------------------------------------------
  27.  
  28. Dim strPagingMove    
  29. Dim strFormMode
  30. Dim strDFName
  31. strDFName = "rsclassClasses"
  32. %>
  33.  
  34. <SCRIPT RUNAT=Server LANGUAGE="VBScript">
  35.  
  36. '---- FieldAttributeEnum Values ----
  37. Const adFldUpdatable = &H00000004
  38. Const adFldUnknownUpdatable = &H00000008
  39. Const adFldIsNullable = &H00000020
  40.  
  41. '---- DataTypeEnum Values ----
  42. Const adUnsignedTinyInt = 17
  43. Const adBoolean = 11
  44. Const adLongVarChar = 201
  45. Const adLongVarWChar = 203
  46. Const adBinary = 128
  47. Const adVarBinary = 204
  48. Const adLongVarBinary = 205
  49. Const adVarChar = 200
  50. Const adWVarChar = 202
  51. Const adBSTR = 8
  52. Const adChar = 129
  53. Const adWChar = 130
  54. '---- Other Values ----
  55. Const dfMaxSize = 100
  56.  
  57. '-------------------------------------------------------------------------------
  58. ' Purpose:  Substitutes Empty for Null and trims leading/trailing spaces
  59. ' Inputs:   varTemp    - the target value
  60. ' Returns:    The processed value
  61. '-------------------------------------------------------------------------------
  62.  
  63. Function ConvertNull(varTemp)
  64.     If IsNull(varTemp) Then
  65.         ConvertNull = ""
  66.     Else
  67.         ConvertNull = Trim(varTemp)
  68.     End If
  69. End Function
  70.  
  71. '-------------------------------------------------------------------------------
  72. ' Purpose:  Embeds bracketing quotes around the string
  73. ' Inputs:   varTemp    - the target value
  74. ' Returns:    The processed value
  75. '-------------------------------------------------------------------------------
  76.  
  77. Function QuotedString(varTemp)
  78.     If IsNull(varTemp) Then
  79.         QuotedString = Chr(34) & Chr(34)
  80.     Else
  81.         QuotedString = Chr(34) & CStr(varTemp) & Chr(34)
  82.     End If
  83. End Function
  84.  
  85. '-------------------------------------------------------------------------------
  86. ' Purpose:  Tests string to see if it is a URL by looking for protocol
  87. ' Inputs:   varTemp    - the target value
  88. ' Returns:    True - if is URL, False if not
  89. '-------------------------------------------------------------------------------
  90.  
  91. Function IsURL(varTemp)
  92.     IsURL = True
  93.     If UCase(Left(Trim(varTemp), 6)) = "HTTP:/" Then Exit Function
  94.     If UCase(Left(Trim(varTemp), 6)) = "FILE:/" Then Exit Function
  95.     If UCase(Left(Trim(varTemp), 8)) = "MAILTO:/" Then Exit Function
  96.     If UCase(Left(Trim(varTemp), 5)) = "FTP:/" Then Exit Function
  97.     If UCase(Left(Trim(varTemp), 8)) = "GOPHER:/" Then Exit Function
  98.     If UCase(Left(Trim(varTemp), 6)) = "NEWS:/" Then Exit Function
  99.     If UCase(Left(Trim(varTemp), 7)) = "HTTPS:/" Then Exit Function
  100.     If UCase(Left(Trim(varTemp), 8)) = "TELNET:/" Then Exit Function
  101.     If UCase(Left(Trim(varTemp), 6)) = "NNTP:/" Then Exit Function
  102.     IsURL = False
  103. End Function
  104.  
  105. '-------------------------------------------------------------------------------
  106. ' Purpose:  Tests whether the field in the recordset is updatable
  107. ' Assumes:     That the recordset containing the field is open
  108. ' Inputs:   strFieldName    - the name of the field in the recordset
  109. ' Returns:    True if updatable, False if not
  110. '-------------------------------------------------------------------------------
  111.  
  112. Function CanUpdateField(strFieldName)
  113.     Dim intUpdatable
  114.     intUpdatable = (adFldUpdatable Or adFldUnknownUpdatable)
  115.     CanUpdateField = True
  116.     If (rsclassClasses(strFieldName).Attributes And intUpdatable) = False Then
  117.         CanUpdateField = False
  118.     End If
  119. End Function
  120.  
  121. '-------------------------------------------------------------------------------
  122. ' Purpose:  Handles the display of a field from a recordset depending
  123. '            on its data type, attributes, and the current mode.
  124. ' Assumes:     That the recordset containing the field is open
  125. '            That strFormMode is initialized
  126. ' Inputs:   strFieldName     - the name of the field in the recordset
  127. '            strLabel        - the label to display
  128. '            blnIdentity        - identity field flag
  129. '            avarLookup        - array of lookup values
  130. '-------------------------------------------------------------------------------
  131.  
  132. Sub ShowField(strFieldName, strLabel, blnIdentity, avarLookup)
  133.     Dim blnFieldRequired
  134.     Dim intMaxSize
  135.     Dim intInputSize
  136.     Dim strOption1State
  137.     Dim strOption2State
  138.     Dim strFieldValue
  139.     Dim nPos
  140.     strFieldValue = ""
  141.     nPos=Instr(strFieldName,".")
  142.     Do While nPos > 0 
  143.         strFieldName= Mid (strFieldName, nPos+1)
  144.         nPos=Instr(strFieldName,".")
  145.     Loop 
  146.     ' If not in Edit form mode then set value to empty so doesn't display
  147.     strFieldValue = ""
  148.     If strFormMode = "Edit" Then strFieldValue = rsclassClasses(strFieldName)
  149.     
  150.     ' See if the field is required by checking the attributes 
  151.     blnFieldRequired = False
  152.     If (rsclassClasses(strFieldName).Attributes And adFldIsNullable) = 0 Then 
  153.         blnFieldRequired = True
  154.     End If
  155.     
  156.     ' Set values for the MaxLength and Size attributes    
  157.     intMaxSize = dfMaxSize
  158.     intInputSize = rsclassClasses(strFieldName).DefinedSize + 2
  159.     If strFormMode <> "Filter" Then intMaxSize = intInputSize - 2
  160.     
  161.     ' Write the field label and start the value cell
  162.     Response.Write "<TR VALIGN=TOP>"
  163.     Response.Write "<TD HEIGHT=25 ALIGN=Left NOWRAP><FONT SIZE=-1><B>  " & strLabel & "</B></FONT></TD>"    
  164.     Response.Write "<TD WIDTH=100% ><FONT SIZE=-1>"
  165.     
  166.     ' If the field is not updatable, then handle 
  167.     ' it like an Identity column and exit
  168.     If Not CanUpdateField(strFieldName) Then
  169.         ' Special handling if Binary
  170.         Select Case rsclassClasses(strFieldName).Type
  171.             Case adBinary, adVarBinary, adLongVarBinary        'Binary
  172.                 Response.Write "[Binary]"
  173.             Case Else        
  174.                 Select Case strFormMode
  175.                     Case "Edit"
  176.                         Response.Write ConvertNull(strFieldValue)
  177.                         Response.Write "<INPUT TYPE=Hidden NAME=" & QuotedString(strFieldName)
  178.                         Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  179.                     Case "New"
  180.                         Response.Write "[AutoNumber]"
  181.                         Response.Write "<INPUT TYPE=Hidden NAME=" & QuotedString(strFieldName)
  182.                         Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  183.                     Case "Filter" 
  184.                         Response.Write "<INPUT TYPE=Text NAME=" & QuotedString(strFieldName)
  185.                         Response.Write " SIZE=" & intInputSize
  186.                         Response.Write " MAXLENGTH=" & intMaxSize
  187.                         Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  188.                 End Select
  189.         End Select
  190.         Response.Write "</FONT></TD></TR>"
  191.         Exit Sub
  192.     End If
  193.     
  194.     ' Handle lookups using a select and options
  195.     If Not IsNull(avarLookup) Then
  196.         Response.Write "<SELECT NAME=" & QuotedString(strFieldName) & ">"
  197.         ' Add blank entry if not required or in filter mode
  198.         If Not blnFieldRequired Or strFormMode = "Filter" Then
  199.             If (strFormMode = "Filter" Or strFormMode = "New") Then
  200.                 Response.Write "<OPTION SELECTED>"
  201.             Else
  202.                 Response.Write "<OPTION>"
  203.             End If
  204.         End If
  205.         
  206.         ' Loop thru the rows in the array
  207.         For intRow = 0 to UBound(avarLookup, 2)
  208.             Response.Write "<OPTION VALUE=" & QuotedString(avarLookup(0, intRow))
  209.             If strFormMode = "Edit" Then
  210.                 If ConvertNull(avarLookup(0, intRow)) = ConvertNull(strFieldValue) Then
  211.                        Response.Write " SELECTED"
  212.                 End If
  213.             End If
  214.                Response.Write ">"
  215.             Response.Write ConvertNull(avarLookup(1, intRow))
  216.         Next
  217.         Response.Write "</SELECT>"
  218.         If blnFieldRequired And strFormMode = "New" Then 
  219.             Response.Write "  Required"
  220.         End If
  221.         Response.Write "</FONT></TD></TR>"
  222.         Exit Sub
  223.     End If    
  224.     
  225.     ' Evaluate data type and handle appropriately
  226.     Select Case rsclassClasses(strFieldName).Type
  227.     
  228.         Case adBoolean, adUnsignedTinyInt                'Boolean
  229.             If strFormMode = "Filter" Then                
  230.                 strOption1State = " >True"
  231.                 strOption2State = " >False"
  232.             Else
  233.                 Select Case strFieldValue
  234.                     Case "True", "1", "-1"
  235.                         strOption1State = " CHECKED>True"
  236.                         strOption2State = " >False"
  237.                     Case "False", "0"
  238.                         strOption1State = " >True"
  239.                         strOption2State = " CHECKED>False"
  240.                     Case Else
  241.                         strOption1State = " >True"
  242.                         strOption2State = " >False"
  243.                 End Select
  244.             End If            
  245.             Response.Write "<INPUT TYPE=Radio VALUE=1 NAME=" & QuotedString(strFieldName) & strOption1State
  246.             Response.Write "<INPUT TYPE=Radio VALUE=0 NAME=" & QuotedString(strFieldName) & strOption2State
  247.             If strFormMode = "Filter" Then
  248.                 Response.Write "<INPUT TYPE=Radio NAME=" & QuotedString(strFieldName) & " CHECKED>Neither"
  249.             End If
  250.             
  251.         Case adBinary, adVarBinary, adLongVarBinary        'Binary
  252.             Response.Write "[Binary]"
  253.             
  254.         Case adLongVarChar, adLongVarWChar                'Memo
  255.             Response.Write "<TEXTAREA NAME=" & QuotedString(strFieldName) & " ROWS=3 COLS=80>"
  256.             Response.Write ConvertNull(strFieldValue)
  257.             Response.Write "</TEXTAREA>"
  258.             
  259.         Case Else
  260.             Dim nType 
  261.             nType=rsclassClasses(strFieldName).Type
  262.             If (nType <> adVarChar) and (nType <> adWVarChar) and (nType <> adBSTR) and (nType <> adChar) and (nType <> adWChar)  Then
  263.                 intInputSize = (intInputSize-2)*3+2
  264.                 If strFormMode <> "Filter" Then intMaxSize = intInputSize - 2
  265.             End If
  266.             If blnIdentity Then
  267.                 Select Case strFormMode
  268.                     Case "Edit"
  269.                         Response.Write ConvertNull(strFieldValue)
  270.                         Response.Write "<INPUT TYPE=Hidden NAME=" & QuotedString(strFieldName)
  271.                         Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  272.                     Case "New"
  273.                         Response.Write "[AutoNumber]"
  274.                         Response.Write "<INPUT TYPE=Hidden NAME=" & QuotedString(strFieldName)
  275.                         Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  276.                     Case "Filter" 
  277.                         Response.Write "<INPUT TYPE=Text NAME=" & QuotedString(strFieldName) & " SIZE=" & tInputSize
  278.                         Response.Write " MAXLENGTH=" & tMaxSize & " VALUE=" & QuotedString(strFieldValue) & " >"
  279.                 End Select
  280.             Else
  281.                 If intInputSize > 80 Then intInputSize = 80            
  282.                 Response.Write "<INPUT TYPE=Text NAME=" & QuotedString(strFieldName)
  283.                 Response.Write " SIZE=" & intInputSize
  284.                 Response.Write " MAXLENGTH=" & intMaxSize
  285.                 Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  286.                 ' Check for special field types
  287.                 Select Case UCase(Left(rsclassClasses(strFieldName).Name, 4))
  288.                     Case "IMG_"
  289.                         If strFieldValue <> "" Then
  290.                             Response.Write "<BR><BR><IMG SRC=" & QuotedString(strFieldValue) & "><BR> <BR>"
  291.                         End If
  292.                     Case "URL_"
  293.                         If strFieldValue <> "" Then
  294.                             Response.Write "  <A HREF=" & QuotedString(strFieldValue) & ">"
  295.                             Response.Write "Go"
  296.                             Response.Write "</A>"
  297.                         End If
  298.                     Case Else
  299.                         If IsURL(strFieldValue) Then
  300.                             Response.Write "  <A HREF=" & QuotedString(strFieldValue) & ">"
  301.                             Response.Write "Go"
  302.                             Response.Write "</A>"
  303.                         End If                    
  304.                 End Select                
  305.             End If
  306.     End Select
  307.        If blnFieldRequired And strFormMode = "New" Then
  308.         Response.Write "  Required"
  309.     End If
  310.     Response.Write "</FONT></TD></TR>"
  311. End Sub    
  312. </SCRIPT>
  313.  
  314. <% 
  315. strFormMode = "Edit"    ' Initalize the default
  316. If Not IsEmpty(Request("FormMode")) Then strFormMode = Request("FormMode")
  317. If Not IsEmpty(Request("rsclassClasses_PagingMove")) Then
  318.     strPagingMove = Trim(Request("rsclassClasses_PagingMove"))
  319. End If
  320. %>
  321.  
  322. <HTML>
  323. <HEAD>
  324.     <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev">
  325.     <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
  326.     <META NAME="Keywords" CONTENT="Microsoft Data Form, Class List Form">
  327.     <TITLE>Class List Form</TITLE>
  328. </HEAD>
  329.  
  330. <!--------------------------- Formatting Section ------------------------------>
  331.  
  332. <BASEFONT FACE="Arial, Helvetica, sans-serif">
  333. <LINK REL=STYLESHEET HREF="./Stylesheets/Grid/Style2.css">
  334. <BODY BACKGROUND="./Images/Grid/Background/Back2.jpg" BGCOLOR=White>
  335.  
  336. <!---------------------------- Lookups Section -------------------------------->
  337.  
  338. <!---------------------------- Heading Section -------------------------------->
  339.  
  340. <% Response.Write "<FORM ACTION=""classAction.asp"" METHOD=""POST"">" %>
  341. <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  342.     <TR>
  343.         <TH NOWRAP BGCOLOR=Silver BACKGROUND="./Images/Grid/Navigation/Nav1.jpg">
  344.             <FONT SIZE=6> Class List </FONT>
  345.         </TH>
  346.         <TD ALIGN=Right BGCOLOR=Silver VALIGN=MIDDLE WIDTH=100% BACKGROUND="./Images/Grid/Navigation/Nav1.jpg">
  347.             <% 
  348.             If strFormMode = "Form View" then strFormMode = "Edit"
  349.             Select Case strFormMode
  350.                 Case "Edit"    
  351.                     %>
  352.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="Filter">
  353.                     <% If Session("rsclassClasses_Filter") <> "" Then %>
  354.                           <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="All Records">
  355.                     <% End If %> 
  356.                 <% Case "Filter" %>
  357.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE=" Apply ">
  358.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE=" Cancel "> 
  359.                 <% Case "New" %>
  360.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE=" Insert ">
  361.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE=" Cancel "> 
  362.             <% End Select %>
  363.              <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="List View">         
  364.         </TD>
  365.     </TR>
  366.     <TR>
  367.         <TD BGCOLOR=#FFFFCC COLSPAN=3>
  368.             <FONT SIZE=-1>  
  369.             <%
  370.             If Not IsEmpty(Session("rsclassClasses_Status")) And Session("rsclassClasses_Status") <>"" Then
  371.                 Response.Write Session("rsclassClasses_Status")
  372.                 Session("rsclassClasses_Status") = ""
  373.             Else
  374.                 Select Case strFormMode
  375.                     Case "Edit"
  376.                         If IsEmpty(Session("rsclassClasses_Filter")) Then
  377.                             Response.Write "Current Filter: None"
  378.                         Else
  379.                             If Session("rsclassClasses_Filter") <> "" Then
  380.                                 Response.Write "Current Filter: " & Session("rsclassClasses_FilterDisplay")
  381.                             Else
  382.                                 Response.Write "Current Filter: None"
  383.                             End If
  384.                         End If
  385.                     Case "Filter"
  386.                         Response.Write "Status: Ready for filter criteria"
  387.                     Case "New"
  388.                         Response.Write "Status: Ready for new record"
  389.                 End Select
  390.             End If 
  391.             %>
  392.             </FONT>
  393.         </TD>
  394.     </TR></TABLE>
  395.  
  396. <!----------------------------- Form Section ---------------------------------->
  397.  
  398. <!--METADATA TYPE="DesignerControl" startspan
  399.     <OBJECT ID="rsclassClasses" WIDTH=151 HEIGHT=24
  400.         CLASSID="CLSID:F602E721-A281-11CF-A5B7-0080C73AAC7E">
  401.         <PARAM NAME="BarAlignment" VALUE="0">
  402.            <PARAM NAME="PageSize" VALUE="1">
  403.         <PARAM Name="RangeType" Value="1">
  404.         <PARAM Name="DataConnection" Value="StateU">
  405.         <PARAM Name="CommandType" Value="0">
  406.         <PARAM Name="CommandText" Value="SELECT "ClassID", "Title", "MajorID", "Seats", "StartDate" FROM dbo."Classes"">
  407.         <PARAM Name="CursorType" Value="1">
  408.         <PARAM Name="LockType" Value="3">
  409.         <PARAM Name="CacheRecordset" Value="1">
  410.     </OBJECT>
  411. -->
  412.  
  413. <%
  414. fHideNavBar = False
  415. fHideNumber = False
  416. fHideRequery = False
  417. fHideRule = False
  418. stQueryString = ""
  419. fEmptyRecordset = False
  420. fFirstPass = True
  421. fNeedRecordset = False
  422. fNoRecordset = False
  423. tBarAlignment = "Left"
  424. tHeaderName = "rsclassClasses"
  425. tPageSize = 1
  426. tPagingMove = ""
  427. tRangeType = "Form"
  428. tRecordsProcessed = 0
  429. tPrevAbsolutePage = 0
  430. intCurPos = 0
  431. intNewPos = 0
  432. fSupportsBookmarks = True
  433. fMoveAbsolute = False
  434.  
  435. If Not IsEmpty(Request("rsclassClasses_PagingMove")) Then
  436.     tPagingMove = Trim(Request("rsclassClasses_PagingMove"))
  437. End If
  438.  
  439. If IsEmpty(Session("rsclassClasses_Recordset")) Then
  440.     fNeedRecordset = True
  441. Else
  442.     If Session("rsclassClasses_Recordset") Is Nothing Then
  443.         fNeedRecordset = True
  444.     Else
  445.         Set rsclassClasses = Session("rsclassClasses_Recordset")
  446.     End If
  447. End If
  448.  
  449. If fNeedRecordset Then
  450.     Set StateU = Server.CreateObject("ADODB.Connection")
  451.     StateU.ConnectionTimeout = Session("StateU_ConnectionTimeout")
  452.     StateU.CommandTimeout = Session("StateU_CommandTimeout")
  453.     StateU.Open Session("StateU_ConnectionString"), Session("StateU_RuntimeUserName"), Session("StateU_RuntimePassword")
  454.     Set cmdTemp = Server.CreateObject("ADODB.Command")
  455.     Set rsclassClasses = Server.CreateObject("ADODB.Recordset")
  456.     cmdTemp.CommandText = "SELECT ""ClassID"", ""Title"", ""MajorID"", ""Seats"", ""StartDate"" FROM dbo.""Classes"""
  457.     cmdTemp.CommandType = 1
  458.     Set cmdTemp.ActiveConnection = StateU
  459.     rsclassClasses.Open cmdTemp, , 1, 3
  460. End If
  461. On Error Resume Next
  462. If rsclassClasses.BOF And rsclassClasses.EOF Then fEmptyRecordset = True
  463. On Error Goto 0
  464. If Err Then fEmptyRecordset = True
  465. If fNeedRecordset Then
  466.     Set Session("rsclassClasses_Recordset") = rsclassClasses
  467. End If
  468. rsclassClasses.PageSize = tPageSize
  469. fSupportsBookmarks = rsclassClasses.Supports(8192)
  470.  
  471. If Not IsEmpty(Session("rsclassClasses_Filter")) And Not fEmptyRecordset Then
  472.     rsclassClasses.Filter = Session("rsclassClasses_Filter")
  473.     If rsclassClasses.BOF And rsclassClasses.EOF Then fEmptyRecordset = True
  474. End If
  475.  
  476. If IsEmpty(Session("rsclassClasses_PageSize")) Then Session("rsclassClasses_PageSize") = tPageSize
  477. If IsEmpty(Session("rsclassClasses_AbsolutePage")) Then Session("rsclassClasses_AbsolutePage") = 1
  478.  
  479. If Session("rsclassClasses_PageSize") <> tPageSize Then
  480.     tCurRec = ((Session("rsclassClasses_AbsolutePage") - 1) * Session("rsclassClasses_PageSize")) + 1
  481.     tNewPage = Int(tCurRec / tPageSize)
  482.     If tCurRec Mod tPageSize <> 0 Then
  483.         tNewPage = tNewPage + 1
  484.     End If
  485.     If tNewPage = 0 Then tNewPage = 1
  486.     Session("rsclassClasses_PageSize") = tPageSize
  487.     Session("rsclassClasses_AbsolutePage") = tNewPage
  488. End If
  489.  
  490. If fEmptyRecordset Then
  491.     fHideNavBar = True
  492.     fHideRule = True
  493. Else
  494.     tPrevAbsolutePage = Session("rsclassClasses_AbsolutePage")
  495.     Select Case tPagingMove
  496.         Case ""
  497.             fMoveAbsolute = True
  498.         Case "Requery"
  499.             rsclassClasses.Requery
  500.             fMoveAbsolute = True
  501.         Case "<<"
  502.             Session("rsclassClasses_AbsolutePage") = 1
  503.         Case "<"
  504.             If Session("rsclassClasses_AbsolutePage") > 1 Then
  505.                 Session("rsclassClasses_AbsolutePage") = Session("rsclassClasses_AbsolutePage") - 1
  506.             End If
  507.         Case ">"
  508.             If Not rsclassClasses.EOF Then
  509.                 Session("rsclassClasses_AbsolutePage") = Session("rsclassClasses_AbsolutePage") + 1
  510.             End If
  511.         Case ">>"
  512.             If fSupportsBookmarks Then
  513.                 Session("rsclassClasses_AbsolutePage") = rsclassClasses.PageCount
  514.             End If
  515.     End Select
  516.     Do
  517.         If fSupportsBookmarks Then
  518.             rsclassClasses.AbsolutePage = Session("rsclassClasses_AbsolutePage")
  519.         Else
  520.             If fNeedRecordset Or fMoveAbsolute Or rsclassClasses.EOF Then
  521.                 rsclassClasses.MoveFirst
  522.                 rsclassClasses.Move (Session("rsclassClasses_AbsolutePage") - 1) * tPageSize
  523.             Else
  524.                 intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize
  525.                 intNewPos = ((Session("rsclassClasses_AbsolutePage") - 1) * tPageSize) + 1
  526.                 rsclassClasses.Move intNewPos - intCurPos
  527.             End If
  528.             If rsclassClasses.BOF Then rsclassClasses.MoveNext
  529.         End If
  530.         If Not rsclassClasses.EOF Then Exit Do
  531.         Session("rsclassClasses_AbsolutePage") = Session("rsclassClasses_AbsolutePage") - 1
  532.     Loop
  533. End If
  534.  
  535. Do
  536.     If fEmptyRecordset Then Exit Do
  537.     If tRecordsProcessed = tPageSize Then Exit Do
  538.     If Not fFirstPass Then
  539.         rsclassClasses.MoveNext
  540.     Else
  541.         fFirstPass = False
  542.     End If
  543.     If rsclassClasses.EOF Then Exit Do
  544.     tRecordsProcessed = tRecordsProcessed + 1
  545. %>
  546. <!--METADATA TYPE="DesignerControl" endspan-->
  547.  
  548. <% 
  549. If strFormMode = "Edit" Then
  550.     Response.Write "<P>"
  551.     Response.Write "<TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=2 BORDER=0>"
  552.     ShowField "ClassID", "ClassID", False, Null
  553.     ShowField "Title", "Title", False, Null
  554.     ShowField "MajorID", "MajorID", False, Null
  555.     ShowField "Seats", "Seats", False, Null
  556.     ShowField "StartDate", "StartDate", False, Null
  557.     Response.Write "</TABLE>"
  558.     Response.Write "</FORM></P>"
  559.     stQueryString = "?FormMode=Edit"
  560.     fHideNavBar = False
  561.     fHideRule = True
  562. Else
  563.     fHideNavBar = True
  564.     fHideRule = True
  565. End If 
  566. %>
  567.  
  568. <!--METADATA TYPE="DesignerControl" startspan
  569.     <OBJECT ID="DataRangeFtr1" WIDTH=151 HEIGHT=24
  570.         CLASSID="CLSID:F602E722-A281-11CF-A5B7-0080C73AAC7E">
  571.     </OBJECT>
  572. -->
  573. <%
  574. Loop
  575. If tRangeType = "Table" Then Response.Write "</TABLE>"
  576. If tPageSize > 0 Then
  577.     If Not fHideRule Then Response.Write "<HR>"
  578.     If Not fHideNavBar Then
  579.         %>
  580.         <TABLE WIDTH=100% >
  581.         <TR>
  582.             <TD WIDTH=100% >
  583.                 <P ALIGN=<%= tBarAlignment %> >
  584.                 <FORM <%= "ACTION=""" & Request.ServerVariables("PATH_INFO") & stQueryString & """" %> METHOD="POST">
  585.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <<   ">
  586.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <    ">
  587.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="    >   ">
  588.                     <% If fSupportsBookmarks Then %>
  589.                         <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   >>   ">
  590.                     <% End If %>
  591.                     <% If Not fHideRequery Then %>
  592.                         <INPUT TYPE="Submit" NAME="<% =tHeaderName & "_PagingMove" %>" VALUE=" Requery ">
  593.                     <% End If %>
  594.                 </FORM>
  595.                 </P>
  596.             </TD>
  597.             <TD VALIGN=MIDDLE ALIGN=RIGHT>
  598.                 <FONT SIZE=2>
  599.                 <%
  600.                 If Not fHideNumber Then
  601.                     If tPageSize > 1 Then
  602.                         Response.Write "<NOBR>Page: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  603.                     Else
  604.                         Response.Write "<NOBR>Record: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  605.                     End If
  606.                 End If
  607.                 %>
  608.                 </FONT>
  609.             </TD>
  610.         </TR>
  611.         </TABLE>
  612.     <%
  613.     End If
  614. End If
  615. %>
  616. <!--METADATA TYPE="DesignerControl" endspan-->
  617.  
  618. <% 
  619. If strFormMode <> "Edit" Then
  620.     Response.Write "<P>"
  621.     Response.Write "<TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=2 BORDER=0>"
  622.     ShowField "ClassID", "ClassID", False, Null
  623.     ShowField "Title", "Title", False, Null
  624.     ShowField "MajorID", "MajorID", False, Null
  625.     ShowField "Seats", "Seats", False, Null
  626.     ShowField "StartDate", "StartDate", False, Null
  627.     Response.Write "</TABLE>"
  628.     Response.Write "</FORM></P>"    
  629. End If
  630. %>
  631.  
  632. <!---------------------------- Footer Section --------------------------------->
  633.  
  634. <%
  635. ' Display a message if there are no records to show
  636. If strFormMode = "Edit" And fEmptyRecordset Then
  637.     Response.Write "<p align=left>No Records Available</p>"
  638. End If
  639. ' TEMP: This is here until we get a drop of the data range that has
  640. '         the CacheRecordset property  
  641. If fNeedRecordset Then
  642.     Set Session("rsclassClasses_Recordset") = rsclassClasses
  643. End If
  644. %>
  645.  
  646. </BODY>
  647. </HTML>
  648.  
  649.